home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / misc / amag / am9305b.lha / Amos / replace.asc < prev    next >
Text File  |  1993-02-10  |  346b  |  25 lines
  1. Reserve As Work 10,L
  2. Bload F$,10
  3. '
  4. Dim F(12,2)
  5. For I=1 To 12
  6.    Read F(I,1)
  7.    Read F(I,2)
  8. Next I
  9. '
  10. _ENDE=Start(10)+Length(10)
  11. '
  12. For I=1 To 12
  13.    _START=Start(10)
  14.    S$=Chr$(F(I,1))
  15.    Do 
  16.       G=Hunt(_START To _ENDE,S$)
  17.       Poke G,F(I,2)
  18.       _START=G
  19.       Exit If G=0
  20.    Loop 
  21. Next I
  22. '
  23. Bsave F2$,Start(10) To Start(10)+Length(10)
  24. Erase 10
  25.